Antes de iniciar, v ao menu projects entre em referncias e marque a
opo microsoft activex data objects 2.x(onde x  o nmero que tiver
no seu vb).
Assim vc ir utilizar o mtodo de conexo com banco de dados que se
chama ADO.


Para comear, crie um banco de dados access chamado cadastro.
Crie uma tabela chamada clientes e insira os seguintes campos:
id autonumerao
nome texto 30
end texto 50
cep texto 10
bairro texto 20
cidade texto 20

crie uma pasta no disco c chamada teste e utilize a conexo abaixo

vamos montar um cadastro.

crie um form com 5 text box.
deixe a propriedade name de cada um com txt na frente, assim:
campo nome = txtnome
campo end = txtend e assim vai.


_________________________________________________________________
No vb, no menu project selecione add module.
Clique em abrir e dentro deste mdulo digite:

Global cn as adodb.connection ' varivel de conexo com o banco de dados
global rx as adodb.recordset ' varivel recordset para selecionar informaes do banco de dados
global op as adodb.command ' varivel de envio de comandos sql para o banco de dados

Assim vc poder utilizar estas variveis em todo o seu projeto



'________________________________________________________________
Abrindo uma conexo com um banco de dados.



no form load coloque o cdigo abaixo:


 'PARA ACCESS
Set cn = New ADODB.Connection
   With cn
    .Provider = "MSDASQL"
    .ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; Dbq=c:\teste\cadastro;Uid=Admin; Pwd=;"
    .Open                 '(Usurio)     (Senha)    (Caminho e Nome do banco de dados)
   End With

____________________________________________________________________

' INSERINDO DADOS EM TABELA

crie um boto gravar e coloque este cdigo no click do boto

	Set op = New ADODB.Command
With op
    	.ActiveConnection = cn
    	.CommandText = "insert into clientes (nome,end,cep,bairro,cidade) values ('" & txtnome.text & "','" & txtend.text & "','" & txtcep.text & "','" & txtbairro.text & "','" & txtcidade.text & "');"
    	.Execute
End With

	Set op = Nothing
assim vc ir inserir dados no seu banco de dados
_______________________________________________________________________________________________

' EXCLUINDO DADOS EM TABELA


	Set op = New ADODB.Command
	With op
	   .ActiveConnection = cn
	   .CommandText = "delete from clientes where nome= 'jeferson'"
	   .Execute
	End With
	
	SET OP = NOTHING
_______________________________________________________________________________________________

' ALTERANDO DADOS EM TABELA

	Set op = New ADODB.Command
	With op
	   .ActiveConnection = cn
	   .CommandText = "update clientes set nome= 'jeferson forner',end='rua teste1',cep='000000',bairro='algumacoisa',cidade='sp'"
	   .Execute
	End With

	SET OP = NOTING

_______________________________________________________________________________________________


abrindo um recordset para recuperar dados do banco de dados

Depois de vc inserir vrios nomes no seu banco de dados clientes,
coloque este cdigo em um boto localizar.

set rx = new adodb.recordset
rx.open "Select * from clientes order by nome;",cn

chame o form que tem o flexgrid (vide explicao abaixo)

formcomgrid.show
' assim vc seleciona os dados existentes na sua tabela clientes

'_________________________________________________________________
agora vc ir mostr-los.

insira um novo form, v ao menu project e selecione compontentes.
procure microsoft flexgrid contros x(onde x  o nmero que tem no seu vb)
mude a propriedade name para mgrid1.
agora insira o cdigo abaixo no form load do form que tem o flexgrid.

MGrid1.AllowUserResizing = flexResizeBoth
'frmRetCons.Caption = "Consulta tarifas por periodo"
'frmTeste.Caption = "Consulta tarifas por periodo"

DoEvents
MGrid1.AllowUserResizing = flexResizeBoth



     MGrid1.Cols = rx.Fields.Count + 1
     
     
     MGrid1.Rows = 1

DoEvents



For X = 0 To MGrid1.Cols - 1
           MGrid1.TextMatrix(0, X) = "ID"
           DoEvents
Next
        

MGrid1.Row = 0

     For i = 0 To rx.Fields.Count - 1
          
          MGrid1.Col = i + 1
            
         
          MGrid1.ColAlignment(i + 1) = flexAlignLeftCenter

          MGrid1.ColWidth(i + 1) = 1500
          MGrid1.Text = rx.Fields(i).Name
         
          DoEvents
          
     Next
MGrid1.ColWidth(4) = 3500

CONTADOR = 0

     Do While Not rx.EOF
     
          'Add a row to the FlexGrid everytime
          'the database goes to another row.
          MGrid1.Rows = MGrid1.Rows + 1

          'Move to last row to add data.
          MGrid1.Row = MGrid1.Rows - 1
          
          
                    
          'Move to every cell in the row
          'and fill it in with the
          'corresponding value from the
          'database.
          
          For i = 0 To rx.Fields.Count - 1
               'Remember that the
               'first column is left blank so
               'we shift over 1.
               
               MGrid1.Col = i + 1
               MGrid1.Text = rx(i).Value & ""
             DoEvents
            
          Next
          'Move to the next record.
          rx.MoveNext
     DoEvents

      CONTADOR = CONTADOR + 1
                
        
        
            If CONTADOR = 2000 Then
            If MsgBox("Chegou em 2000 registros" & vbCrLf & "deseja cancelar?", vbYesNo + vbQuestion, "Ateno") = vbYes Then
            GoTo pula2000
            End If
            End If
        
        

  Loop
     
     
pula2000:


'PARA NUMERAR LINHAS DA CONSULTA NO FLEXGRID
 
    With MGrid1
        '.ColAlignment(-1) = 1       'all Left alligned
                       
        
         For X = 1 To MGrid1.Rows - 1
           MGrid1.TextMatrix(X, 0) = Str(X)
        Next
'        .Row = 1
'        .Col = 1
'        .CellBackColor = &HC0FFFF   'lt. yellow
    End With
